home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MODULES / LESSON08 / ACT08B / COMMON8 / 00051_Script_51 < prev    next >
Encoding:
Text File  |  1998-10-02  |  290 b   |  10 lines
  1. on addPrompt startMember,endMember, castName
  2.   repeat with i=startMember to endMember
  3.     set oldName=the name of member i of castLib castName
  4.     if item 2 of oldName<>"prompt" then
  5.       set the name of member i of castLib castName=oldName&",prompt"
  6.     end if
  7.   end repeat
  8. end
  9.  
  10.